 $NUM
  MTAB(1)=1.5,2.,2.5,3.,3.5,4.,4.5,5.,6.,8.,10.,
    DELTAT(1,1)=0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
             0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
             0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
             0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
             0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
             0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
             0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
             0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
             0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
             0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
             0.,.04363323,.08726645,.13089967,.1745329,.2181661,.2617993,
           .3054325,.3490658,.392699,.4363322,.479965,.5235987,
  PCT(1,1)=1.,1.0194326,1.0624668,1.1218836,1.1949823,1.2805338,1.3780493,
           1.4875334,1.6094921,1.7452173,1.8977323,1.,1.,
        1.,1.0302014,1.095048,1.1836274,1.2924832,1.4202392,1.5662549,
           1.73013,1.9114873,2.1099574,2.325245,2.5572482,2.8063347,
        1.,1.0430054,1.1338127,1.2579479,1.4118223,1.5943908,1.8051501,
           2.0435503,2.3088209,2.5999833,2.9158958,3.2553311,3.6170774,
        1.,1.0575531,1.1779135,1.3434709,1.5510936,1.8002508,2.0905385,
           2.4211572,2.7908532,3.1979721,3.6405103,4.1162105,4.6226939,
        1.,1.07368,1.2270211,1.4399168,1.7101605,2.0377458,2.4222429,
           2.8624798,3.3565651,3.9019948,4.4957647,5.1344738,5.8144615,
        1.,1.0912720,1.2809867,1.547292,1.8892065,2.3071757,2.8006264,
           3.3678429,4.0061275,4.7119593,5.4811532,6.3089994,7.1904022,
        1.,1.1102609,1.3397531,1.6656866,2.0884875,2.6089172,3.2261054,
           3.9376627,4.7398834,5.6280810,6.5967119,7.6395491,8.7499419,
        1.,1.1305848,1.403315,1.7952468,2.308246,2.9432816,3.6990542,
           4.5722872,5.558163,6.6506071,7.8425504,9.1261264,10.492909,
        1.,1.1750571,1.5449088,2.0883718,2.8100784,3.7110158,4.7885278,
           6.0371455,7.4492676,9.0156074,10.725597,12.5675,14.528819,
        1.,1.2786974,1.8871344,2.8137638,4.0675451,5.6477433,7.5471315,
           9.7541022,12.253764,15.028693,18.059352,21.32435,24.8000936,
   1.,1.4015141,2.3102668,3.7291669,5.6691937,8.1254669,11.084206,
   14.525483,18.425183,22.755513,27.485425,32.581175,38.00706,
 AM1T(1,1)=1.5,1.4866884,1.4579318,1.4197316,1.3748579,1.3248992,1.2707392,
           1.2127162,1.1506488,1.0837313,1.0100703,1.,1.,
        2.,1.9808615,1.9415254,1.8912335,1.8340453,1.7721933,1.7068837,
           1.6386764,1.5677572,1.4940884,1.417468,1.3375202,1.2535953,
       2.5,2.4729472,2.4193976,2.3528628,2.2788768,2.2001554,2.1179422,
           2.0327606,1.9448503,1.8543543,1.7613748,1.6659616,1.5680718,
        3.,2.96276,2.8913832,2.8048038,2.7101402,2.6103929,2.5067511,
           2.3997895,2.2899646,2.1777409,2.063583,1.9479054,1.8310067,
       3.5,3.4500939,3.3571597,3.2467499,3.1275136,3.0025569,2.8731152,
           2.7400668,2.6043443,2.466913,2.3286833,2.1904152,2.0526629 ,
        4.,3.93477,3.8164543,3.6783916,3.530568,3.3761469,3.2166972,
           3.0537628,2.8889908,2.7239783,2.5600783,2.3983186,2.2393739,
       4.5,4.4166246,4.269058,4.0994611,3.9189007,3.730775,3.5374323,
           3.3414321,3.1453333,2.9513677,2.7612386,2.5760876,2.3965344,
        5.,4.8955305,4.7148078,4.5097079,4.2921847,4.0662668,3.8355932,
           3.6040616,3.3752078,3.1517935,2.935687,2.7279347,2.5289133,
        6.,5.8440686,5.5852474,5.2968787,4.9927832,4.6801702,4.3668118,
           4.0597311,3.7640785,3.4829712,3.2178167,2.9687934,2.735258,
        8.,7.7018785,7.2390804,6.7337145,6.2103924,5.6922672,5.198150,
           4.7389543,4.3187765,3.9373126,3.5918831,3.2787858,2.9940481,
   10.,9.50464,8.7725147,7.9851813,7.197758,6.456834,5.7867581,5.1933727,
   4.6723717,4.2153623,3.8131019,3.4569163,3.139194,
  CNAT(1)=2.,1.977,1.934,1.882,1.828,1.773,1.719,1.663,1.605,1.547,1.485,
  1.426,1.366,
  2.,1.973,1.917,1.866,1.819,1.774,1.731,1.685,1.637,1.584,1.526,1.464,1.398,
  2.,1.96,1.904,1.855,1.817,1.782,1.748,1.708,1.663,1.613,1.557,1.494,1.428,
  2.,1.951,1.893,1.849,1.82,1.795,1.765,1.729,1.685,1.636,1.58,1.517,1.449,
  2.,1.943,1.883,1.849,1.829,1.807,1.781,1.747,1.704,1.653,1.597,1.533,1.465,
  2.,1.935,1.877,1.852,1.838,1.82,1.795,1.761,1.717,1.667,1.609,1.545,1.476,
  2.,1.926,1.873,1.857,1.848,1.831,1.807,1.773,1.73,1.678,1.619,1.555,1.483,
  2.,1.919,1.872,1.863,1.857,1.843,1.818,1.783,1.739,1.687,1.627,1.561,1.49,
  2.,1.907,1.874,1.877,1.875,1.861,1.835,1.799,1.753,1.699,1.638,1.571,1.498,
  2.,1.891,1.889,1.903,1.902,1.886,1.857,1.818,1.769,1.713,1.65,1.581,1.508,
  2.,1.885,1.907,1.925,1.921,1.902,1.87,1.828,1.778,1.702,1.656,1.587,1.512,
  IPRINT=0,
 AMACH=2.,
  S=7.07,
  DELTA1=0,
  DELTA2=0.,
  DELTA3=0.,
  N=21,
  X(1)=1.,2.,3.,4.,5.,6.,8.,10.,12.,14.5,20.,25.,30.,35.,40.,43.72,45.,46.,
  47.,48.,48.6,
  Y(1)=.20196,.3887,.5606,.7178,.8604,.9885,1.2015,1.3572,1.4562,7*1.5,1.49,
  1.44,1.33,1.16,1.02,
  YTIP=5.1,
